home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / begman.lha / begmanual / begman03.ps < prev    next >
Text File  |  1992-02-14  |  13KB  |  714 lines
  1. %!PS-Adobe-2.0
  2. %%Title: (null)
  3. %%Creator: emmel
  4. %%CreationDate: Wed Dec  4 10:40:54 1991
  5. %%Pages: 0
  6. %%BoundingBox: 18 2.88 285.163 213.35
  7. %%EndComments
  8. /draw_initial_state save def
  9. /displaylistdict 80 dict def
  10. displaylistdict begin
  11.  
  12. %% catch nocurrentpoint error for:
  13. %% pathbbox
  14.     /ncpoint errordict /nocurrentpoint get def
  15.     errordict begin
  16.     /nocurrentpoint
  17.     {
  18.     dup /pathbbox load eq
  19.     { pop 0 0 1 1 }
  20.     { ncpoint }
  21.     ifelse
  22.     } bind def
  23.     end
  24.  
  25.     /m {moveto} bind def
  26.     /l {lineto} bind def
  27.  
  28. %% pattern stuff
  29.     /BPSIDE 32 def    %% pixels per pattern side
  30.     /PATFREQ 3.0 def    %% pattern pixels per mm
  31.  
  32.     /drawpat_mat [PATFREQ 0 0 PATFREQ 0 0] def
  33.     /drawpat_pw BPSIDE def    %% pattern pixel width
  34.     /drawpat_ph BPSIDE def    %% pattern pixel height
  35.     /drawpat_w drawpat_pw PATFREQ div def    %% pattern mm width
  36.     /drawpat_h drawpat_ph PATFREQ div def    %% pattern mm height
  37.     /drawpat_bs 1 def        %% pattern bits per pixel
  38.  
  39.     /topmat matrix def
  40.     /patmat matrix def
  41.  
  42.     /start_display_list
  43.     {    
  44.     0    setlinecap
  45.     10    setmiterlimit
  46.     } bind def
  47.  
  48.     /patpath {
  49.     topmat setmatrix
  50.     pathbbox    %% get lo - hi indecies
  51.     /hy exch drawpat_h div floor cvi def
  52.     /hx exch drawpat_w div floor cvi def
  53.     /ly exch drawpat_h div floor cvi def
  54.     /lx exch drawpat_w div floor cvi def
  55.     lx 1 hx {
  56.         drawpat_w mul
  57.         ly 1 hy {
  58.         drawpat_h mul
  59.         exch dup 3 1 roll exch
  60.         patmat currentmatrix pop
  61.         translate
  62.         drawpat_pw drawpat_ph drawpat_bs
  63.         drawpat_mat drawpat_proc image
  64.         patmat setmatrix
  65.         } for
  66.         pop
  67.     } for
  68.     } bind def
  69.  
  70.     /saveCurrentPoint
  71.     {
  72.     currentpoint /cpy exch def /cpx exch def
  73.     } bind def
  74.  
  75.     /restoreCurrentPoint
  76.     {
  77.     cpx cpy moveto
  78.     } bind def
  79.     /r {rmoveto} bind def
  80.     /sp {x 0 rmoveto} bind def
  81.     /rl {rlineto} bind def
  82.     /onelet 1 string def
  83.  
  84. %% show a string
  85.     /s {
  86.         complex_color
  87.         {
  88.         {
  89.             onelet exch 0 exch put
  90.             gsave
  91.             onelet true charpath
  92.             clip patpath
  93.             grestore
  94.             onelet stringwidth rmoveto
  95.         } forall
  96.         }
  97.         { show }
  98.         ifelse
  99.     } bind def
  100.  
  101.     /box { newpath m l l l closepath } bind def
  102.     /pix_to_units { 144 300 div mul } bind def
  103.     /apix_to_units { 144 exch div mul } bind def
  104.  
  105.     /reencode_small_dict 12 dict def
  106.     /ReencodeSmall {
  107.     reencode_small_dict begin
  108.     /new_codes_and_names exch def
  109.     /new_font_name exch def
  110.     /base_font_name exch def
  111.  
  112.     /base_font_dict base_font_name findfont def
  113.     /newfont base_font_dict maxlength dict def
  114.  
  115.     base_font_dict {
  116.         exch dup /FID ne
  117.         { dup /Encoding eq
  118.             { exch dup length array copy newfont 3 1 roll put }
  119.             { exch newfont 3 1 roll put }
  120.             ifelse
  121.         }
  122.         { pop pop }
  123.         ifelse
  124.     } forall
  125.  
  126.     newfont /FontName new_font_name put
  127.     new_codes_and_names aload pop
  128.  
  129.     new_codes_and_names length 2 idiv
  130.     { newfont /Encoding get 3 1 roll put }
  131.     repeat
  132.  
  133.     new_font_name newfont definefont pop
  134.     end     %%reencode_small_dict
  135.     } def
  136.  
  137.     /extended_Zapf [
  138.     8#223 /a89
  139.     8#224 /a90
  140.     8#225 /a93
  141.     8#226 /a94
  142.     8#227 /a91
  143.     8#230 /a92
  144.     8#231 /a205
  145.     8#232 /a85
  146.     8#233 /a206
  147.     8#234 /a86
  148.     8#235 /a87
  149.     8#236 /a88
  150.     8#237 /a95
  151.     8#240 /a96
  152.     ] def
  153.  
  154.     /extended_Standard [
  155.     128 /Acircumflex
  156.     129 /Adieresis
  157.     130 /Agrave
  158.     131 /Aring
  159.     132 /Atilde
  160.     133 /Ccedilla
  161.     134 /Eacute
  162.     135 /Ecircumflex
  163.     136 /Edieresis
  164.     137 /Egrave
  165.     138 /Iacute
  166.     139 /Icircumflex
  167.     140 /Idieresis
  168.     141 /Igrave
  169.     142 /Ntilde
  170.     143 /Oacute
  171.     144 /Ocircumflex
  172.     145 /Odieresis
  173.     146 /Ograve
  174.     147 /Otilde
  175.     148 /Scaron
  176.     149 /Uacute
  177.     150 /Ucircumflex
  178.     151 /Udieresis
  179.     152 /Ugrave
  180.     153 /Ydieresis
  181.     154 /Zcaron
  182.     155 /aacute
  183.     156 /acircumflex
  184.     157 /adieresis
  185.     158 /agrave
  186.     159 /aring
  187.     160 /atilde
  188.     209 /ccedilla
  189.     210 /copyright
  190.     211 /eacute
  191.     212 /ecircumflex
  192.     213 /edieresis
  193.     214 /egrave
  194.     215 /iacute
  195.     216 /icircumflex
  196.     217 /idieresis
  197.     218 /igrave
  198.     219 /logicalnot
  199.     220 /minus
  200.     221 /ntilde
  201.     222 /oacute
  202.     223 /ocircumflex
  203.     224 /odieresis
  204.     228 /ograve
  205.     229 /otilde
  206.     230 /registered
  207.     231 /scaron
  208.     236 /trademark
  209.     237 /uacute
  210.     238 /ucircumflex
  211.     239 /udieresis
  212.     240 /ugrave
  213.     242 /ydieresis
  214.     243 /zcaron
  215.     244 /Aacute
  216.     ] def
  217.  
  218.     /extended_Symbol [
  219.     ] def
  220.  
  221.     /extend_font {  %% stack: fontname newfontname
  222.     exch dup (ZapfDingbats) eq
  223.         { cvn exch cvn extended_Zapf ReencodeSmall }
  224.         { dup (Symbol) eq
  225.         { cvn exch cvn extended_Symbol ReencodeSmall }
  226.         { cvn exch cvn extended_Standard ReencodeSmall }
  227.         ifelse
  228.         }
  229.     ifelse
  230.     } bind def
  231.  
  232.     /getfont {
  233.     /f exch def f cvn where
  234.     { begin f cvx cvn exec setfont end }
  235.     { f 0 f length 3 sub getinterval (LocalFont) extend_font
  236.         /LocalFont findfont
  237.         /sz f f length 3 sub 3 getinterval cvi def
  238.         [ sz 0 0 sz neg 0 0 ] makefont dup f cvn exch def
  239.         setfont
  240.     }
  241.     ifelse
  242.     } bind def
  243.  
  244.     /ul { %% space drop thickness
  245.     gsave currentpoint currentlinewidth 
  246.     currentpoint newpath moveto 6 -3 roll 
  247.     setlinewidth 0 exch r
  248.     0 rl stroke setlinewidth m
  249.     grestore 
  250.     } bind def
  251.  
  252.     /ss { currentpoint pop exch m } bind def
  253.  
  254.     /image_raster { %% sw sh dw dh xs ys
  255.     translate scale /sh exch def /sw exch def
  256.     /imagebuf sw 7 add 8 idiv string def
  257.     sw sh 1 [sw 0 0 sh 0 0] { currentfile imagebuf readhexstring pop }
  258.     image
  259.     } bind def
  260.  
  261.     /leader_insert 
  262.     { 
  263.     /str exch def /sp1 exch def 
  264.     -1 0 { pop sp1 0 str ashow } for
  265.     } bind def
  266.  
  267.     /nx { /x exch def } bind def
  268.     0. nx
  269. %%EndProlog
  270.  
  271. %%Page: 1 1
  272. gsave 2.83465 -2.83465 scale
  273. saveCurrentPoint newpath restoreCurrentPoint
  274. 94.2492 0 rlineto
  275. 0 74.2492 rlineto
  276. -94.2492 0 rlineto
  277. closepath clip
  278. -21.8754 -7.8754 rmoveto
  279. currentpoint translate
  280. topmat currentmatrix pop
  281. start_display_list
  282.  
  283. % text
  284. 0 setgray
  285. /complex_color false def
  286. matrix currentmatrix [1 0 0 0.999999 71.3754 42.8582] concat
  287. 25.4 144 div dup scale 0 0 m
  288. 18 ss 0.000 18.000 m (Times-Roman024) getfont (cont) s
  289. setmatrix
  290.  
  291. % rfrm
  292. 2 setlinejoin
  293. 0.2492 setlinewidth
  294. gsave
  295. % 4 arcs
  296. matrix currentmatrix
  297. 79 45 translate
  298. 3 3 scale
  299. newpath 0 0 1 0 90 arc setmatrix
  300. matrix currentmatrix
  301. 71 45 translate
  302. 3 3 scale
  303. 0 0 1 90 180 arc setmatrix
  304. matrix currentmatrix
  305. 71 45 translate
  306. 3 3 scale
  307. 0 0 1 180 270 arc setmatrix
  308. matrix currentmatrix
  309. 79 45 translate
  310. 3 3 scale
  311. 0 0 1 270 0 arc setmatrix
  312. closepath
  313. stroke
  314. grestore
  315.  
  316. % text
  317. /complex_color false def
  318. matrix currentmatrix [1 0 0 0.999999 101.957 42.8582] concat
  319. 25.4 144 div dup scale 0 0 m
  320. 18 ss 0.000 18.000 m (Times-Roman024) getfont (1) s
  321. setmatrix
  322.  
  323. % rfrm
  324. gsave
  325. % 4 arcs
  326. matrix currentmatrix
  327. 107 45 translate
  328. 3 3 scale
  329. newpath 0 0 1 0 90 arc setmatrix
  330. matrix currentmatrix
  331. 99 45 translate
  332. 3 3 scale
  333. 0 0 1 90 180 arc setmatrix
  334. matrix currentmatrix
  335. 99 45 translate
  336. 3 3 scale
  337. 0 0 1 180 270 arc setmatrix
  338. matrix currentmatrix
  339. 107 45 translate
  340. 3 3 scale
  341. 0 0 1 270 0 arc setmatrix
  342. closepath
  343. stroke
  344. grestore
  345.  
  346. % text
  347. /complex_color false def
  348. matrix currentmatrix [1 0 0 0.999999 65.2426 14.8582] concat
  349. 25.4 144 div dup scale 0 0 m
  350. 18 ss 0.000 18.000 m (Times-Roman024) getfont (:=) s
  351. setmatrix
  352.  
  353. % rfrm
  354. gsave
  355. % 4 arcs
  356. matrix currentmatrix
  357. 71 17 translate
  358. 3 3 scale
  359. newpath 0 0 1 0 90 arc setmatrix
  360. matrix currentmatrix
  361. 63 17 translate
  362. 3 3 scale
  363. 0 0 1 90 180 arc setmatrix
  364. matrix currentmatrix
  365. 63 17 translate
  366. 3 3 scale
  367. 0 0 1 180 270 arc setmatrix
  368. matrix currentmatrix
  369. 71 17 translate
  370. 3 3 scale
  371. 0 0 1 270 0 arc setmatrix
  372. closepath
  373. stroke
  374. grestore
  375.  
  376. % text
  377. /complex_color false def
  378. matrix currentmatrix [1 0 0 0.999999 87.8467 28.8582] concat
  379. 25.4 144 div dup scale 0 0 m
  380. 18 ss 0.000 18.000 m (Times-Roman024) getfont (+) s
  381. setmatrix
  382.  
  383. % rfrm
  384. gsave
  385. % 4 arcs
  386. matrix currentmatrix
  387. 93 31 translate
  388. 3 3 scale
  389. newpath 0 0 1 0 90 arc setmatrix
  390. matrix currentmatrix
  391. 85 31 translate
  392. 3 3 scale
  393. 0 0 1 90 180 arc setmatrix
  394. matrix currentmatrix
  395. 85 31 translate
  396. 3 3 scale
  397. 0 0 1 180 270 arc setmatrix
  398. matrix currentmatrix
  399. 93 31 translate
  400. 3 3 scale
  401. 0 0 1 270 0 arc setmatrix
  402. closepath
  403. stroke
  404. grestore
  405.  
  406. % polyline2
  407. % arrow
  408. gsave
  409. newpath 88 28 m 84.5826 27.799 l 85.3867 25.7888 l closepath
  410. eofill
  411. grestore
  412. 0 setlinejoin
  413. gsave
  414. newpath 68 20 m
  415. 84.9847 26.7939 l
  416. stroke
  417. grestore
  418.  
  419. % polyline2
  420. % arrow
  421. gsave
  422. newpath 102 42 m 98.6974 41.0993 l 99.8983 39.2978 l closepath
  423. eofill
  424. grestore
  425. gsave
  426. newpath 90 34 m
  427. 99.2978 40.1986 l
  428. stroke
  429. grestore
  430.  
  431. % polyline2
  432. % arrow
  433. gsave
  434. newpath 76 42 m 78.1017 39.2978 l 79.3026 41.0993 l closepath
  435. eofill
  436. grestore
  437. gsave
  438. newpath 88 34 m
  439. 78.7022 40.1986 l
  440. stroke
  441. grestore
  442.  
  443. % polyline2
  444. % arrow
  445. gsave
  446. newpath 75 56 m 73.9175 52.7524 l 76.0825 52.7524 l closepath
  447. eofill
  448. grestore
  449. gsave
  450. newpath 75 48 m
  451. 75 52.7524 l
  452. stroke
  453. grestore
  454.  
  455. % text
  456. /complex_color false def
  457. matrix currentmatrix [1 0 0 0.999999 73.8467 56.8582] concat
  458. 25.4 144 div dup scale 0 0 m
  459. 18 ss 0.000 18.000 m (Times-Roman024) getfont (+) s
  460. setmatrix
  461.  
  462. % rfrm
  463. 2 setlinejoin
  464. gsave
  465. % 4 arcs
  466. matrix currentmatrix
  467. 79 59 translate
  468. 3 3 scale
  469. newpath 0 0 1 0 90 arc setmatrix
  470. matrix currentmatrix
  471. 71 59 translate
  472. 3 3 scale
  473. 0 0 1 90 180 arc setmatrix
  474. matrix currentmatrix
  475. 71 59 translate
  476. 3 3 scale
  477. 0 0 1 180 270 arc setmatrix
  478. matrix currentmatrix
  479. 79 59 translate
  480. 3 3 scale
  481. 0 0 1 270 0 arc setmatrix
  482. closepath
  483. stroke
  484. grestore
  485.  
  486. % text
  487. /complex_color false def
  488. matrix currentmatrix [1 0 0 0.999995 83.9565 70.8582] concat
  489. 25.4 144 div dup scale 0 0 m
  490. 18 ss 0.000 18.000 m (Times-Roman024) getfont (4) s
  491. setmatrix
  492.  
  493. % rfrm
  494. gsave
  495. % 4 arcs
  496. matrix currentmatrix
  497. 89 73 translate
  498. 3 3 scale
  499. newpath 0 0 1 0 90 arc setmatrix
  500. matrix currentmatrix
  501. 81 73 translate
  502. 3 3 scale
  503. 0 0 1 90 180 arc setmatrix
  504. matrix currentmatrix
  505. 81 73 translate
  506. 3 3 scale
  507. 0 0 1 180 270 arc setmatrix
  508. matrix currentmatrix
  509. 89 73 translate
  510. 3 3 scale
  511. 0 0 1 270 0 arc setmatrix
  512. closepath
  513. stroke
  514. grestore
  515.  
  516. % text
  517. /complex_color false def
  518. matrix currentmatrix [1 0 0 0.999995 62.1991 70.8582] concat
  519. 25.4 144 div dup scale 0 0 m
  520. 18 ss 0.000 18.000 m (Times-Roman024) getfont (BB) s
  521. setmatrix
  522.  
  523. % rfrm
  524. gsave
  525. % 4 arcs
  526. matrix currentmatrix
  527. 69 73 translate
  528. 3 3 scale
  529. newpath 0 0 1 0 90 arc setmatrix
  530. matrix currentmatrix
  531. 61 73 translate
  532. 3 3 scale
  533. 0 0 1 90 180 arc setmatrix
  534. matrix currentmatrix
  535. 61 73 translate
  536. 3 3 scale
  537. 0 0 1 180 270 arc setmatrix
  538. matrix currentmatrix
  539. 69 73 translate
  540. 3 3 scale
  541. 0 0 1 270 0 arc setmatrix
  542. closepath
  543. stroke
  544. grestore
  545.  
  546. % polyline2
  547. % arrow
  548. gsave
  549. newpath 66 70 m 67.5309 66.9381 l 69.0619 68.4691 l closepath
  550. eofill
  551. grestore
  552. 0 setlinejoin
  553. gsave
  554. newpath 74 62 m
  555. 68.2964 67.7036 l
  556. stroke
  557. grestore
  558.  
  559. % polyline2
  560. % arrow
  561. gsave
  562. newpath 84 70 m 80.9381 68.4691 l 82.4691 66.9381 l closepath
  563. eofill
  564. grestore
  565. gsave
  566. newpath 76 62 m
  567. 81.7036 67.7036 l
  568. stroke
  569. grestore
  570.  
  571. % text
  572. /complex_color false def
  573. matrix currentmatrix [1 0 0 0.999999 43.8467 28.8582] concat
  574. 25.4 144 div dup scale 0 0 m
  575. 18 ss 0.000 18.000 m (Times-Roman024) getfont (+) s
  576. setmatrix
  577.  
  578. % rfrm
  579. 2 setlinejoin
  580. gsave
  581. % 4 arcs
  582. matrix currentmatrix
  583. 49 31 translate
  584. 3 3 scale
  585. newpath 0 0 1 0 90 arc setmatrix
  586. matrix currentmatrix
  587. 41 31 translate
  588. 3 3 scale
  589. 0 0 1 90 180 arc setmatrix
  590. matrix currentmatrix
  591. 41 31 translate
  592. 3 3 scale
  593. 0 0 1 180 270 arc setmatrix
  594. matrix currentmatrix
  595. 49 31 translate
  596. 3 3 scale
  597. 0 0 1 270 0 arc setmatrix
  598. closepath
  599. stroke
  600. grestore
  601.  
  602. % text
  603. /complex_color false def
  604. matrix currentmatrix [1 0 0 0.999995 53.9565 42.8582] concat
  605. 25.4 144 div dup scale 0 0 m
  606. 18 ss 0.000 18.000 m (Times-Roman024) getfont (4) s
  607. setmatrix
  608.  
  609. % rfrm
  610. gsave
  611. % 4 arcs
  612. matrix currentmatrix
  613. 59 45 translate
  614. 3 3 scale
  615. newpath 0 0 1 0 90 arc setmatrix
  616. matrix currentmatrix
  617. 51 45 translate
  618. 3 3 scale
  619. 0 0 1 90 180 arc setmatrix
  620. matrix currentmatrix
  621. 51 45 translate
  622. 3 3 scale
  623. 0 0 1 180 270 arc setmatrix
  624. matrix currentmatrix
  625. 59 45 translate
  626. 3 3 scale
  627. 0 0 1 270 0 arc setmatrix
  628. closepath
  629. stroke
  630. grestore
  631.  
  632. % text
  633. /complex_color false def
  634. matrix currentmatrix [1 0 0 0.999995 32.1991 42.8582] concat
  635. 25.4 144 div dup scale 0 0 m
  636. 18 ss 0.000 18.000 m (Times-Roman024) getfont (BB) s
  637. setmatrix
  638.  
  639. % rfrm
  640. gsave
  641. % 4 arcs
  642. matrix currentmatrix
  643. 39 45 translate
  644. 3 3 scale
  645. newpath 0 0 1 0 90 arc setmatrix
  646. matrix currentmatrix
  647. 31 45 translate
  648. 3 3 scale
  649. 0 0 1 90 180 arc setmatrix
  650. matrix currentmatrix
  651. 31 45 translate
  652. 3 3 scale
  653. 0 0 1 180 270 arc setmatrix
  654. matrix currentmatrix
  655. 39 45 translate
  656. 3 3 scale
  657. 0 0 1 270 0 arc setmatrix
  658. closepath
  659. stroke
  660. grestore
  661.  
  662. % polyline2
  663. % arrow
  664. gsave
  665. newpath 36 42 m 37.5309 38.9381 l 39.0619 40.4691 l closepath
  666. eofill
  667. grestore
  668. 0 setlinejoin
  669. gsave
  670. newpath 44 34 m
  671. 38.2964 39.7036 l
  672. stroke
  673. grestore
  674.  
  675. % polyline2
  676. % arrow
  677. gsave
  678. newpath 54 42 m 50.9381 40.4691 l 52.4691 38.9381 l closepath
  679. eofill
  680. grestore
  681. gsave
  682. newpath 46 34 m
  683. 51.7036 39.7036 l
  684. stroke
  685. grestore
  686.  
  687. % polyline2
  688. % arrow
  689. gsave
  690. newpath 46 28 m 48.6133 25.7888 l 49.4174 27.799 l closepath
  691. eofill
  692. grestore
  693. gsave
  694. newpath 66 20 m
  695. 49.0153 26.7939 l
  696. stroke
  697. grestore
  698.  
  699. % irpoly2
  700. gsave
  701. newpath 22 8 m
  702. 116 8 l
  703. 116 82 l
  704. 22 82 l
  705. closepath
  706. stroke
  707. grestore
  708. grestore
  709.  
  710. %%Trailer
  711. end
  712. draw_initial_state restore
  713.  
  714.